home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt87ibm.arc / WINDOW.BAS < prev   
Encoding:
BASIC Source File  |  1987-09-22  |  5.2 KB  |  81 lines
  1. 100 ' WINDOW.BAS - program to generate WINDOW.EXE
  2. 110 '
  3. 120 '  Copyright (C)  John W. Ross   1986
  4. 130 '
  5. 140 OPEN"window.exe" AS #2 LEN=1
  6. 150 FIELD #2, 1 AS Z$
  7. 160 READ A$
  8. 170 WHILE A$<>"-1"
  9. 180   C$="&h"+A$
  10. 190   C=VAL(C$)
  11. 200   O$=MKI$(C)
  12. 210   LSET Z$=LEFT$(O$,1)
  13. 220   PUT#2
  14. 230   READ A$
  15. 240 WEND
  16. 1000 DATA 4D, 5A, 40, 00, 03, 00, 02, 00, 20, 00, 00, 00, FF, FF, 18, 00, A0
  17. 1010 DATA 00, 12, C6, 00, 00, 22, 00, 1E, 00, 00, 00, 01, 00, 79, 00, 00, 00
  18. 1020 DATA 1A, 00, 22, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  19. 1030 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  20. 1040 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  21. 1050 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  22. 1060 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  23. 1070 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  24. 1080 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  25. 1090 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  26. 1100 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  27. 1110 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  28. 1120 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  29. 1130 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  30. 1140 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  31. 1150 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  32. 1160 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  33. 1170 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  34. 1180 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  35. 1190 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  36. 1200 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  37. 1210 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  38. 1220 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  39. 1230 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  40. 1240 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  41. 1250 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  42. 1260 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  43. 1270 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  44. 1280 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  45. 1290 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
  46. 1300 DATA 00, 00, 55, 8B, EC, 1E, 06, 16, EB, 39, 90, 43, 6F, 70, 79, 72, 69
  47. 1310 DATA 67, 68, 74, 20, 28, 43, 29, 20, 4A, 6F, 68, 6E, 20, 57, 2E, 20, 52
  48. 1320 DATA 6F, 73, 73, 20, 31, 39, 38, 36, 00, 00, 00, 00, 00, 00, 00, 00, 00
  49. 1330 DATA 00, 00, 00, 00, 00, 00, 00, B8, 00, B9, 00, BA, 00, BB, 00, B0, 8B
  50. 1340 DATA 5E, 06, 8B, 07, 2E, A2, 34, 00, 8B, 5E, 08, 8B, 07, 2E, A3, 2C, 00
  51. 1350 DATA 8B, 5E, 0A, 8B, 07, 2E, A3, 2E, 00, 8B, 5E, 0C, 8B, 07, 2E, A3, 28
  52. 1360 DATA 00, 8B, 5E, 0E, 8B, 07, 2E, A3, 2A, 00, 8B, 5E, 10, 8B, 07, 2E, A3
  53. 1370 DATA 35, 00, 1E, B8, 00, 00, 8E, D8, B4, 0F, CD, 10, 3C, 02, 74, 0C, 3C
  54. 1380 DATA 03, 74, 08, 3C, 07, 74, 04, 1F, E9, BC, 00, B4, 00, A3, 30, 00, 8A
  55. 1390 DATA DF, B7, 00, 89, 1E, 32, 00, D1, E3, 83, 3E, 30, 00, 07, 75, 03, BB
  56. 1400 DATA 08, 00, 8B, 97, 37, 00, 52, 8A, 36, 2A, 00, 8A, 16, 28, 00, B0, 50
  57. 1410 DATA F6, E6, B6, 00, 03, C2, D1, E0, 8B, D8, 07, 8A, 16, 2C, 00, 8A, 36
  58. 1420 DATA 2E, 00, A1, 35, 00, 1F, 8B, 7E, 12, 53, 8A, CE, B5, 00, 51, 53, 8A
  59. 1430 DATA CA, B5, 00, 51, 3D, 01, 00, 74, 08, 8B, 0D, 26, 89, 0F, EB, 06, 90
  60. 1440 DATA 26, 8B, 0F, 89, 0D, 43, 43, 47, 47, 59, E2, E6, 5B, 81, C3, A0, 00
  61. 1450 DATA 59, E2, D8, 0E, 1F, 5B, 3D, 01, 00, 75, 45, B2, C9, B6, BB, B0, CD
  62. 1460 DATA 8A, 26, 34, 00, 8B, 0E, 2C, 00, E8, 3B, 00, 81, C3, A0, 00, B2, BA
  63. 1470 DATA B6, BA, B0, 20, 8A, 26, 34, 00, 8B, 0E, 2E, 00, 49, 49, 51, 8B, 0E
  64. 1480 DATA 2C, 00, E8, 1F, 00, 81, C3, A0, 00, 59, E2, F1, B2, C8, B6, BC, B0
  65. 1490 DATA CD, 8A, 26, 34, 00, 8B, 0E, 2C, 00, E8, 07, 00, 17, 07, 1F, 5D, CA
  66. 1500 DATA 0E, 00, 53, 26, 88, 17, 43, 26, 88, 27, 43, 49, 49, 26, 88, 07, 43
  67. 1510 DATA 26, 88, 27, 43, E2, F6, 26, 88, 37, 43, 26, 88, 27, 5B, C3, 00, 00
  68. 1520 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 73, 74, 61, 63, 6B
  69. 1530 DATA 20, 20, 20, 73, 74, 61, 63, 6B, 20, 20, 20, 73, 74, 61, 63, 6B, 20
  70. 1540 DATA 20, 20, 73, 74, 61, 63, 6B, 20, 20, 20, 73, 74, 61, 63, 6B, 20, 20
  71. 1550 DATA 20, 73, 74, 61, 63, 6B, 20, 20, 20, 73, 74, 61, 63, 6B, 20, 20, 20
  72. 1560 DATA 73, 74, 61, 63, 6B, 20, 20, 20, 73, 74, 61, 63, 6B, 20, 20, 20, 73
  73. 1570 DATA 74, 61, 63, 6B, 20, 20, 20, 73, 74, 61, 63, 6B, 20, 20, 20, 73, 74
  74. 1580 DATA 61, 63, 6B, 20, 20, 20, 73, 74, 61, 63, 6B, 20, 20, 20, 73, 74, 61
  75. 1590 DATA 63, 6B, 20, 20, 20, 73, 74, 61, 63, 6B, 20, 20, 20, 73, 74, 61, 63
  76. 1600 DATA 6B, 20, 20, 20, 73, 74, 61, 63, 6B, 20, 20, 20, 73, 74, 61, 63, 6B
  77. 1610 DATA 20, 20, 20, 73, 74, 61, 63, 6B, 20, 20, 20, 73, 74, 61, 63, 6B, 20
  78. 1620 DATA 20, 20, 06, 33, C0, 50, 26, C6, 06, 01, 00, 27, 33, C0, 8E, C0, 26
  79. 1630 DATA C7, 06, F0, 04, 00, 00, 26, C7, 06, F2, 04, 00, 00, BA, 20, 03, CB
  80. 1640 DATA -1
  81.